home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 19 / Mac Magazin and MacEasy Magazine CD - Issue 19.iso / Grafik & Text & Film / Quark XTensions / Freeware Xtensions / Quark AppleScript Scripts / Scripts (text only) / Preference Checker < prev    next >
Text File  |  1994-06-29  |  9KB  |  236 lines
  1. -- ©1994 Quark, Inc.  All rights reserved.
  2. on getAppPreferences()
  3.     tell application "QuarkXPress™"
  4.         {"Auto Backup is: " & auto backup & return as string, ¬
  5.             "Auto Library Save is:" & auto lib save & return as string, ¬
  6.             "Auto Save Interval is: " & auto save interval & return as string, ¬
  7.             "Color TIFF resolution is: " & color TIFF resolution & return, ¬
  8.             "Convert Quotes is: " & convert quotes & return as string, ¬
  9.             "Gray TIFF resolution is: " & gray TIFF resolution & return, ¬
  10.             "Import Styles is: " & import styles & return as string, ¬
  11.             "Live Scroll is: " & live scroll & return as string, ¬
  12.             "Full-screen Documents: " & maximize document bounds & return as string, ¬
  13.             "Off-screen Draw is: " & offscreen draw & return as string, ¬
  14.             "Pasteboard Width is: " & pasteboard width & return as string, ¬
  15.             "Reg. Marks Offset is: " & registration marks offset & return as string, ¬
  16.             "Smart Quotes is: " & smart quotes & return as string, ¬
  17.             "Tile to Multiple Monitors is: " & tile to multiple monitors & return as string, ¬
  18.             "Total Backups are/is: " & total backups & return & return as string}
  19.     end tell
  20. end getAppPreferences
  21.  
  22. on getDefaultDocPrefs()
  23.     tell document 1 of application "QuarkXPress™"
  24.         {"Automatic Text Box is: " & automatic text box & return, ¬
  25.             "Bottom Margin is: " & bottom margin & return as string, ¬
  26.             "Left Margin is: " & left margin & return as string, ¬
  27.             "Right Margin is: " & right margin & return as string, ¬
  28.             "Top Margin is: " & top margin & return as string, ¬
  29.             "Facing Pages is: " & facing pages & return, ¬
  30.             "Gutter Width is: " & gutter width & return as string, ¬
  31.             "Inside Margin is: " & inside margin & return as string, ¬
  32.             "Outside Margin is: " & outside margin & return as string, ¬
  33.             "Page Height is: " & page height & return as string, ¬
  34.             "Page Width is: " & page width & return as string, ¬
  35.             "Spread Height is: " & spread height & return as string, ¬
  36.             "Spread Width is: " & spread width & return & return as string}
  37.     end tell
  38. end getDefaultDocPrefs
  39.  
  40. on getGeneralPrefs()
  41.     tell document 1 of application "QuarkXPress™"
  42.         {"Accurate Blends is: " & low quality blends & return as string, ¬
  43.             "Auto Constrain is: " & auto constrain & return as string, ¬
  44.             "Auto Page Insertion location is: " & auto page insertion location & return, ¬
  45.             "Auto Picture Import is: " & auto picture import & return, ¬
  46.             "Ciceros/cm is: " & ciceros per centimeter & return as string, ¬
  47.             "Frame Inside is: " & frame inside & return as string, ¬
  48.             "Greek Below is: " & greek below & return as string, ¬
  49.             "Greek Pictures is: " & greek pictures & return as string, ¬
  50.             "Guides In Front is: " & guides in front & return as string, ¬
  51.             "Horizontal Measure is: " & horizontal measure & return, ¬
  52.             "Vertical Measure is: " & vertical measure & return, ¬
  53.             "Item Spread Coordinates is: " & item spread coords & return as string, ¬
  54.             "Keep Master Page Items is: " & keep master page items & return as string, ¬
  55.             "Points/Inch is: " & points per inch & return as string, ¬
  56.             "Snap Distance is: " & snap distance & return & return & return as string}
  57.     end tell
  58. end getGeneralPrefs
  59.  
  60. on getTypoPrefs()
  61.     tell document 1 of application "QuarkXPress™"
  62.         {"Auto Kern is:  " & auto kern & return, ¬
  63.             "Auto Leading is:  " & auto leading & return, ¬
  64.             "Baseline Grid Increment is: " & baseline grid increment & return as string, ¬
  65.             "Baseline Grid Start is: " & baseline grid start & return as string, ¬
  66.             "Enhanced Hyphenation Method is: " & enhanced hyphenation method & return, ¬
  67.             "Flex Space Width is: " & flex space width & return as string, ¬
  68.             "Kern Above is: " & kern above & return as string, ¬
  69.             "Ligatures On is: " & ligatures on & return, ¬
  70.             "Maintain Leading is: " & maintain leading & return, ¬
  71.             "Ligatures Break Above: " & maximum ligature track & return as string, ¬
  72.             "Small Caps Horizontal Scale is: " & small caps horizontal scale & return as string, ¬
  73.             "Small Caps Vertical Scale is: " & small caps vertical scale & return as string, ¬
  74.             "Subscript Horizontal Scale is: " & subscript horizontal scale & return as string, ¬
  75.             "Subscript Offset is: " & subscript offset & return as string, ¬
  76.             "Subscript Vertical Scale is: " & subscript vertical scale & return as string, ¬
  77.             "Superscript Horizontal Scale is: " & superscript horizontal scale & return as string, ¬
  78.             "Superscript Offset is: " & superscript offset & return as string, ¬
  79.             "Superscript Vertical Scale is: " & superscript vertical scale & return as string, ¬
  80.             "Typesetting Leading Mode is: " & typesetting leading mode & return}
  81.     end tell
  82. end getTypoPrefs
  83.  
  84. tell application "QuarkXPress™"
  85.     activate
  86.     make document at beginning with properties {page width:"8.5”", page height:"11”", automatic text box:false}
  87.     tell page 1 of document 1
  88.         try
  89.             delete every text box
  90.         on error
  91.         end try
  92.         make text box at beginning with properties {bounds:{"0.5”", "0.5”", "10.5”", "8”"}}
  93.     end tell
  94.     tell text box 1 of document 1
  95.         set contents of story 1 to " "
  96.         set columns to 2
  97.         try
  98.             set font of story 1 to "Times"
  99.         on error
  100.             set font of story 1 to (name of item 1 of (font list as list))
  101.         end try
  102.         set size of story 1 to 12
  103.         
  104.         --Get  Application Preferences
  105.         set contents of paragraph 1 to "Application Preferences" & return
  106.         set contents of last paragraph to " "
  107.         set style of paragraph 1 to bold
  108.         set style of last paragraph to plain
  109.         copy every item of my getAppPreferences() as text to paragraph 2
  110.         set numAppparagraphs to count of paragraphs in story 1
  111.         
  112.         --Get Default Document Preferences
  113.         set contents of paragraph numAppparagraphs to "Default Document Preferences" & return
  114.         set contents of last paragraph to " "
  115.         set style of paragraph numAppparagraphs to bold
  116.         set style of last paragraph to plain
  117.         copy every item of my getDefaultDocPrefs() as text to paragraph (numAppparagraphs + 1)
  118.         set numDefDocParagraphs to count of paragraphs in story 1
  119.         
  120.         --Get General Preferences
  121.         set contents of paragraph numDefDocParagraphs to "General Preferences" & return
  122.         set contents of last paragraph to " "
  123.         set style of paragraph numDefDocParagraphs to bold
  124.         set style of last paragraph to plain
  125.         copy every item of my getGeneralPrefs() as text to paragraph (numDefDocParagraphs + 1)
  126.         set numGenParagraphs to count of paragraphs in story 1
  127.         
  128.         --Get Typographic Preferences
  129.         set contents of paragraph numGenParagraphs to "Typographic Preferences" & return
  130.         set contents of last paragraph to " "
  131.         set style of paragraph numGenParagraphs to bold
  132.         set style of last paragraph to plain
  133.         copy every item of my getTypoPrefs() as text to paragraph (numGenParagraphs + 1)
  134.         
  135.         tell story 1
  136.             try
  137.                 set every paragraph whose it = "Accurate Blends is: TRUE" to "Accurate Blends is: FALSE"
  138.             on error
  139.                 set every paragraph whose it = "Accurate Blends is: FALSE" to "Accurate Blends is: TRUE"
  140.             end try
  141.             try
  142.                 set every word whose it = "TRUE" to "ON"
  143.             on error
  144.             end try
  145.             try
  146.                 set every word whose it = "FALSE" to "OFF"
  147.             on error
  148.             end try
  149.             
  150.             --Color/Gray Tiff Resolution Translations
  151.             try
  152.                 set every word whose it = "08BT" to "8 bit"
  153.             on error
  154.             end try
  155.             try
  156.                 set every word whose it = "16BT" to "16 bit"
  157.             on error
  158.             end try
  159.             try
  160.                 set every word whose it = "32BT" to "32 bit"
  161.             on error
  162.             end try
  163.             try
  164.                 set every word whose it = "L016" to "16 levels"
  165.             on error
  166.             end try
  167.             try
  168.                 set every word whose it = "L256" to "256 levels"
  169.             on error
  170.             end try
  171.             
  172.             --Auto Page Insertion Translations
  173.             try
  174.                 set every word whose it = "TAPO" to "No Auto Page Insertion"
  175.             on error
  176.             end try
  177.             try
  178.                 set every word whose it = "TAPS" to "End of Story"
  179.             on error
  180.             end try
  181.             try
  182.                 set every word whose it = "TAPX" to "End of Section"
  183.             on error
  184.             end try
  185.             try
  186.                 set every word whose it = "TAPD" to "End of Document"
  187.             on error
  188.             end try
  189.             
  190.             --Auto Picture Import Translations
  191.             try
  192.                 set every word whose it = "TIOF" to "Auto Import Off"
  193.             on error
  194.             end try
  195.             try
  196.                 set every word whose it = "TION" to "Auto Import On"
  197.             on error
  198.             end try
  199.             try
  200.                 set every word whose it = "TIOV" to "Auto Import On (verify)"
  201.             on error
  202.             end try
  203.             
  204.             --Measurement Translations
  205.             try
  206.                 set every word whose it = "FXIN" to "inches"
  207.             on error
  208.             end try
  209.             try
  210.                 set every word whose it = "FXID" to "inches decimal"
  211.             on error
  212.             end try
  213.             try
  214.                 set every word whose it = "FXPI" to "picas"
  215.             on error
  216.             end try
  217.             try
  218.                 set every word whose it = "FXPT" to "points"
  219.             on error
  220.             end try
  221.             try
  222.                 set every word whose it = "FXMM" to "millimeters"
  223.             on error
  224.             end try
  225.             try
  226.                 set every word whose it = "FXCM" to "centimeters"
  227.             on error
  228.             end try
  229.             try
  230.                 set every word whose it = "FXC" to "ciceros"
  231.             on error
  232.             end try
  233.             
  234.         end tell
  235.     end tell
  236. end tell